unit UntBaseCadastro;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untBase, Menus, AppEvnts, cxGraphics, cxLookAndFeels,
  cxLookAndFeelPainters, StdCtrls, cxButtons, ExtCtrls;

type
  TFrmBaseCadastro = class(TfrmBase)
    pnlCentral: TPanel;
    pnlBotoes: TPanel;
    pnlCrud: TPanel;
    btnInserir: TcxButton;
    btnEditar: TcxButton;
    btnExcluir: TcxButton;
    btnVisualizar: TcxButton;
    pnlConfirmarAlteracoes: TPanel;
    btnSalvar: TcxButton;
    procedure btnConfirmarClick(Sender: TObject);
    procedure btnCancelarClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBaseCadastro: TFrmBaseCadastro;

implementation

{$R *.dfm}

procedure TFrmBaseCadastro.btnCancelarClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TFrmBaseCadastro.btnConfirmarClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TFrmBaseCadastro.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    Perform(Wm_NextDlgCtl,0,0);
  end;
end;

end.
